home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / sales.spr < prev    next >
Encoding:
Text File  |  1994-07-07  |  4.4 KB  |  151 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/18/94              SALES.SPR                21:02:27 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *       SALES/Windows Databases, Indexes, Relations       
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("index")
  45.     SELECT index
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("index.dbf","DBF","Where is index?"));
  50.         AGAIN ALIAS index ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("sales") ;
  63.     OR UPPER(WTITLE("SALES")) == "SALES.PJX" ;
  64.     OR UPPER(WTITLE("SALES")) == "SALES.SCX" ;
  65.     OR UPPER(WTITLE("SALES")) == "SALES.MNX" ;
  66.     OR UPPER(WTITLE("SALES")) == "SALES.PRG" ;
  67.     OR UPPER(WTITLE("SALES")) == "SALES.FRX" ;
  68.     OR UPPER(WTITLE("SALES")) == "SALES.QPR"
  69.     DEFINE WINDOW sales ;
  70.         AT 8.917, 25.500 ;
  71.         SIZE 7.538,62.000 ;
  72.         TITLE "Average Sales Price" ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         FLOAT ;
  75.         CLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM
  78. ENDIF
  79.  
  80.  
  81. *       *********************************************************
  82. *       *                                                         
  83. *       *               SALES/Windows Screen Layout               
  84. *       *                                                         
  85. *       *********************************************************
  86. *
  87.  
  88. #REGION 1
  89. IF WVISIBLE("sales")
  90.     ACTIVATE WINDOW sales SAME
  91. ELSE
  92.     ACTIVATE WINDOW sales NOSHOW
  93. ENDIF
  94. @ 0.615,2.400 SAY "Average Sales Price:" ;
  95.     FONT "MS Sans Serif", 12 ;
  96.     STYLE "T" ;
  97.     COLOR RGB(0,0,128,,,,)
  98. @ 4.615,14.400 GET M.PriceMin ;
  99.     PICTURE "@^ No Minimum;10,000;20,000;30,000;40,000;50,000;60,000;70,000;80,000;90,000;100,000" ;
  100.     SIZE 1.538,15.667 ;
  101.     DEFAULT "No Minimum" ;
  102.     FONT "MS Sans Serif", 8 ;
  103.     STYLE "B"
  104. @ 4.615,36.000 GET M.PriceMax ;
  105.     PICTURE "@^ No Maximum;500,000;400,000;300,000;200,000;100,000;50,000" ;
  106.     SIZE 1.538,16.167 ;
  107.     DEFAULT "No Maximum" ;
  108.     FONT "MS Sans Serif", 8 ;
  109.     STYLE "B"
  110. @ 2.692,14.400 SAY "Minimum:" ;
  111.     FONT "MS Sans Serif", 10 ;
  112.     STYLE "T"
  113. @ 2.692,36.000 SAY "Maximum:" ;
  114.     FONT "MS Sans Serif", 10 ;
  115.     STYLE "T"
  116.  
  117. IF NOT WVISIBLE("sales")
  118.     ACTIVATE WINDOW sales
  119. ENDIF
  120.  
  121. READ CYCLE ;
  122.     DEACTIVATE .T.
  123.  
  124. RELEASE WINDOW sales
  125.  
  126. *       *********************************************************
  127. *       *                                                         
  128. *       *                Windows Closing Databases                
  129. *       *                                                         
  130. *       *********************************************************
  131. *
  132.  
  133. IF USED("index")
  134.     SELECT index
  135.     USE
  136. ENDIF
  137.  
  138. SELECT (m.currarea)
  139.  
  140.  
  141. #REGION 0
  142.  
  143. SET READBORDER &rborder
  144.  
  145. IF m.talkstat = "ON"
  146.     SET TALK ON
  147. ENDIF
  148. IF m.compstat = "ON"
  149.     SET COMPATIBLE ON
  150. ENDIF
  151.